home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
PC World 2003 May
/
PCWorld_2003-05_cd.bin
/
Software
/
Komercni
/
dispatcher
/
setup.exe
/
{app}
/
Tisk
/
JGraf.hpr
/
JGraf.txt
Wrap
Text File
|
2002-09-19
|
24KB
|
881 lines
object Chart1RPT_1: TChart1RPT
Left = 242
Top = 168
Width = 841
Height = 664
Caption = 'Tiskov� sestava'
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
OldCreateOrder = False
Scaled = False
PixelsPerInch = 96
TextHeight = 13
object QuickRep1: TQuickRep
Left = 0
Top = 0
Width = 794
Height = 1123
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
DataSet = ADODataSet1
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = 'Arial'
Font.Style = []
Functions.Strings = (
'PAGENUMBER'
'COLUMNNUMBER'
'REPORTTITLE')
Functions.DATA = (
'0'
'0'
#39#39)
Options = [FirstPageHeader, LastPageFooter]
Page.Columns = 1
Page.Orientation = poPortrait
Page.PaperSize = A4
Page.Values = (
100.000000000000000000
2970.000000000000000000
100.000000000000000000
2100.000000000000000000
100.000000000000000000
100.000000000000000000
0.000000000000000000)
PrinterSettings.Copies = 1
PrinterSettings.Duplex = False
PrinterSettings.FirstPage = 0
PrinterSettings.LastPage = 0
PrinterSettings.OutputBin = Auto
PrintIfEmpty = True
ReportTitle = 'Statistika'
SnapToGrid = True
Units = Native
Zoom = 100
object QRBand1: TQRBand
Left = 38
Top = 38
Width = 718
Height = 35
Frame.Color = clNavy
Frame.DrawTop = False
Frame.DrawBottom = True
Frame.DrawLeft = False
Frame.DrawRight = False
Frame.Width = 2
AlignToBottom = False
Color = clWhite
ForceNewColumn = False
ForceNewPage = False
Size.Values = (
92.604166666666670000
1899.708333333333000000)
BandType = rbTitle
object QRLabel2: TQRLabel
Left = 8
Top = 7
Width = 54
Height = 17
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
44.979166666666700000
21.166666666666700000
18.520833333333300000
142.875000000000000000)
Alignment = taLeftJustify
AlignToBand = False
AutoSize = True
AutoStretch = False
Caption = '[:Firma:]'
Color = clWhite
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = 'Arial'
Font.Style = [fsBold]
ParentFont = False
Transparent = False
WordWrap = True
FontSize = 10
end
object QRLabel1: TQRLabel
Left = 608
Top = 7
Width = 105
Height = 19
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
50.270833333333300000
1608.666666666670000000
18.520833333333300000
277.812500000000000000)
Alignment = taRightJustify
AlignToBand = False
AutoSize = True
AutoStretch = False
Caption = '[:NazevSestavy:]'
Color = clWhite
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = 'Arial'
Font.Style = [fsBold]
ParentFont = False
Transparent = False
WordWrap = True
FontSize = 10
end
end
object QRGroup1: TQRGroup
Left = 38
Top = 73
Width = 718
Height = 485
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
AlignToBottom = False
Color = clWhite
ForceNewColumn = False
ForceNewPage = False
Size.Values = (
1283.229166666667000000
1899.708333333333000000)
FooterBand = QRBand4
Master = QuickRep1
ReprintOnNewPage = False
object QRShape1: TQRShape
Left = 104
Top = 460
Width = 489
Height = 25
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
66.145833333333300000
275.166666666667000000
1217.083333333330000000
1293.812500000000000000)
Shape = qrsRectangle
end
object QRLabel3: TQRLabel
Left = 8
Top = 8
Width = 30
Height = 17
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
44.979166666666700000
21.166666666666700000
21.166666666666700000
79.375000000000000000)
Alignment = taLeftJustify
AlignToBand = False
AutoSize = True
AutoStretch = False
Caption = 'SPZ:'
Color = clWhite
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = 'Arial'
Font.Style = [fsBold]
ParentFont = False
Transparent = False
WordWrap = True
FontSize = 10
end
object QRDBText1: TQRDBText
Left = 48
Top = 8
Width = 22
Height = 17
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
44.979166666666700000
127.000000000000000000
21.166666666666700000
58.208333333333300000)
Alignment = taLeftJustify
AlignToBand = False
AutoSize = True
AutoStretch = False
Color = clWhite
DataSet = ADODataSet1
DataField = 'spz'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = 'Arial'
Font.Style = [fsBold]
ParentFont = False
Transparent = False
WordWrap = True
FontSize = 10
end
object QRLabel4: TQRLabel
Left = 208
Top = 8
Width = 26
Height = 17
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
44.979166666666700000
550.333333333333000000
21.166666666666700000
68.791666666666700000)
Alignment = taLeftJustify
AlignToBand = False
AutoSize = True
AutoStretch = False
Caption = 'Typ:'
Color = clWhite
Transparent = False
WordWrap = True
FontSize = 10
end
object QRDBText2: TQRDBText
Left = 240
Top = 8
Width = 43
Height = 17
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
44.979166666666700000
635.000000000000000000
21.166666666666700000
113.770833333333000000)
Alignment = taLeftJustify
AlignToBand = False
AutoSize = True
AutoStretch = False
Color = clWhite
DataSet = ADODataSet1
DataField = 'znacka'
Transparent = False
WordWrap = True
FontSize = 10
end
object QRChart1: TQRChart
Left = 8
Top = 32
Width = 705
Height = 417
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
1103.312500000000000000
21.166666666666700000
84.666666666666700000
1865.312500000000000000)
object QRDBChart1: TQRDBChart
Left = -1
Top = -1
Width = 1
Height = 1
BackWall.Brush.Color = clWhite
BackWall.Brush.Style = bsClear
MarginTop = 5
Title.Text.Strings = (
'TQRChart')
Title.Visible = False
BottomAxis.Title.Caption = 'M�s�c'
BottomAxis.Title.Font.Charset = DEFAULT_CHARSET
BottomAxis.Title.Font.Color = clBlack
BottomAxis.Title.Font.Height = -11
BottomAxis.Title.Font.Name = 'Arial'
BottomAxis.Title.Font.Style = [fsBold]
LeftAxis.Title.Font.Charset = DEFAULT_CHARSET
LeftAxis.Title.Font.Color = clBlack
LeftAxis.Title.Font.Height = -11
LeftAxis.Title.Font.Name = 'Arial'
LeftAxis.Title.Font.Style = [fsBold]
LeftAxis.TitleSize = 8
BevelWidth = 0
object Series1: TBarSeries
ColorEachPoint = True
Marks.ArrowLength = 20
Marks.Visible = True
DataSource = ADODataSet1
SeriesColor = clRed
ShowInLegend = False
BarWidthPercent = 75
XValues.DateTime = False
XValues.Name = 'X'
XValues.Multiplier = 1.000000000000000000
XValues.Order = loAscending
XValues.ValueSource = 'mesic'
YValues.DateTime = False
YValues.Name = 'Bar'
YValues.Multiplier = 1.000000000000000000
YValues.Order = loNone
YValues.ValueSource = 'sumofphml'
end
end
end
object QRLabel5: TQRLabel
Left = 120
Top = 462
Width = 124
Height = 19
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
50.270833333333300000
317.500000000000000000
1222.375000000000000000
328.083333333333000000)
Alignment = taLeftJustify
AlignToBand = False
AutoSize = True
AutoStretch = False
Caption = 'Kalend��n� m�s�c:'
Color = clWhite
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -16
Font.Name = 'Arial'
Font.Style = []
ParentFont = False
Transparent = False
WordWrap = True
FontSize = 12
end
object QRLabel6: TQRLabel
Left = 320
Top = 462
Width = 254
Height = 19
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
50.270833333333300000
846.666666666667000000
1222.375000000000000000
672.041666666667000000)
Alignment = taRightJustify
AlignToBand = False
AutoSize = False
AutoStretch = False
Caption = '[:Popis1:]'
Color = clWhite
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -16
Font.Name = 'Arial'
Font.Style = []
ParentFont = False
Transparent = False
WordWrap = True
FontSize = 12
end
end
object QRBand3: TQRBand
Left = 38
Top = 558
Width = 718
Height = 28
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
AlignToBottom = False
Color = clWhite
ForceNewColumn = False
ForceNewPage = False
Size.Values = (
74.083333333333340000
1899.708333333333000000)
BandType = rbDetail
object QRDBText3: TQRDBText
Left = 272
Top = 2
Width = 254
Height = 19
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
50.270833333333300000
719.666666666667000000
5.291666666666670000
672.041666666667000000)
Alignment = taRightJustify
AlignToBand = False
AutoSize = False
AutoStretch = False
Color = clWhite
DataSet = ADODataSet1
DataField = 'sumofphml'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -16
Font.Name = 'Arial'
Font.Style = []
ParentFont = False
Transparent = False
WordWrap = True
FontSize = 12
end
object QRExpr2: TQRExpr
Left = 120
Top = 2
Width = 2960
Height = 19
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
50.270833333333300000
317.500000000000000000
5.291666666666670000
7831.666666666670000000)
Alignment = taLeftJustify
AlignToBand = False
AutoSize = True
AutoStretch = False
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -16
Font.Name = 'Arial'
Font.Style = []
Color = clWhite
ParentFont = False
ResetAfterPrint = False
Transparent = False
WordWrap = True
Expression =
'IF(ADODataSet1.mesic = 1,'#39'Leden'#39',IF(ADODataSet1.mesic = 2,'#39'�nor'#39 +
', IF(ADODataSet1.mesic = 3,'#39'B�ezen'#39', IF(ADODataSet1.mesic = 4,'#39'D' +
'uben'#39', IF(ADODataSet1.mesic = 5, '#39'Kv�ten'#39', IF(ADODataSet1.mesic ' +
'= 6, '#39'�erven'#39', IF(ADODataSet1.mesic = 7,'#39'�ervenec'#39', IF(ADODataSe' +
't1.mesic = 8,'#39'Srpen'#39', IF(ADODataSet1.mesic = 9, '#39'Z���'#39', IF(ADODa' +
'taSet1.mesic = 10,'#39'��jen'#39', IF(ADODataSet1.mesic = 11,'#39'Listopad'#39',' +
' '#39'Prosinec'#39')))))))))))'
FontSize = 12
end
object QRShape2: TQRShape
Left = 104
Top = -1
Width = 1
Height = 30
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
79.375000000000000000
275.166666666667000000
-2.645833333333330000
2.645833333333330000)
Shape = qrsRectangle
end
object QRShape3: TQRShape
Left = 592
Top = -1
Width = 1
Height = 30
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
79.375000000000000000
1566.333333333330000000
-2.645833333333330000
2.645833333333330000)
Shape = qrsRectangle
end
end
object QRBand4: TQRBand
Left = 38
Top = 586
Width = 718
Height = 36
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
AlignToBottom = False
Color = clWhite
ForceNewColumn = False
ForceNewPage = False
Size.Values = (
95.250000000000000000
1899.708333333333000000)
BandType = rbGroupFooter
object QRShape4: TQRShape
Left = 105
Top = -1
Width = 488
Height = 33
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
87.312500000000000000
277.812500000000000000
-2.645833333333330000
1291.166666666670000000)
Pen.Width = 2
Shape = qrsRectangle
end
object QRLabel7: TQRLabel
Left = 120
Top = 8
Width = 64
Height = 20
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
52.916666666666700000
317.500000000000000000
21.166666666666700000
169.333333333333000000)
Alignment = taLeftJustify
AlignToBand = False
AutoSize = True
AutoStretch = False
Caption = 'Celkem:'
Color = clWhite
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -16
Font.Name = 'Arial'
Font.Style = [fsBold]
ParentFont = False
Transparent = False
WordWrap = True
FontSize = 12
end
object QRExpr1: TQRExpr
Left = 296
Top = 8
Width = 230
Height = 20
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
52.916666666666700000
783.166666666667000000
21.166666666666700000
608.541666666667000000)
Alignment = taRightJustify
AlignToBand = False
AutoSize = False
AutoStretch = False
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -16
Font.Name = 'Arial'
Font.Style = [fsBold]
Color = clWhite
ParentFont = False
ResetAfterPrint = False
Transparent = False
WordWrap = True
Expression = 'SUM(ADODataSet1.sumofphml)'
FontSize = 12
end
end
object QRBand2: TQRBand
Left = 38
Top = 622
Width = 718
Height = 24
Frame.Color = clBlack
Frame.DrawTop = True
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
AlignToBottom = False
Color = clWhite
ForceNewColumn = False
ForceNewPage = False
Size.Values = (
63.500000000000000000
1899.708333333333000000)
BandType = rbPageFooter
object QRLabel8: TQRLabel
Left = 0
Top = 3
Width = 260
Height = 17
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
44.979166666666700000
0.000000000000000000
7.937500000000000000
687.916666666667000000)
Alignment = taLeftJustify
AlignToBand = False
AutoSize = True
AutoStretch = False
Caption = 'Vyti�t�no programem Dispatcher 3, HI Software s.r.o.'
Color = clWhite
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'Arial'
Font.Style = []
ParentFont = False
Transparent = False
WordWrap = True
FontSize = 8
end
object QRSysData1: TQRSysData
Left = 648
Top = 3
Width = 74
Height = 17
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
44.979166666666700000
1714.500000000000000000
7.937500000000000000
195.791666666667000000)
Alignment = taLeftJustify
AlignToBand = False
AutoSize = True
Color = clWhite
Data = qrsPageNumber
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'Arial'
Font.Style = []
ParentFont = False
Text = 'Strana '
Transparent = False
FontSize = 8
end
end
object T1: TQRLabel
Left = 112
Top = 16
Width = 8
Height = 17
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
44.979166666666700000
296.333333333333000000
42.333333333333300000
21.166666666666700000)
Alignment = taLeftJustify
AlignToBand = False
AutoSize = True
AutoStretch = False
Caption = '2'
Color = clWhite
Transparent = False
WordWrap = True
FontSize = 10
end
object T2: TQRLabel
Left = 152
Top = 16
Width = 8
Height = 17
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
44.979166666666700000
402.166666666667000000
42.333333333333300000
21.166666666666700000)
Alignment = taLeftJustify
AlignToBand = False
AutoSize = True
AutoStretch = False
Caption = '0'
Color = clWhite
Transparent = False
WordWrap = True
FontSize = 10
end
object T3: TQRLabel
Left = 192
Top = 16
Width = 15
Height = 17
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
44.979166666666700000
508.000000000000000000
42.333333333333300000
39.687500000000000000)
Alignment = taLeftJustify
AlignToBand = False
AutoSize = True
AutoStretch = False
Caption = '14'
Color = clWhite
Transparent = False
WordWrap = True
FontSize = 10
end
object NTS: TQRLabel
Left = 224
Top = 16
Width = 25
Height = 17
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
44.979166666666700000
592.666666666667000000
42.333333333333300000
66.145833333333300000)
Alignment = taLeftJustify
AlignToBand = False
AutoSize = True
AutoStretch = False
Caption = 'Graf'
Color = clWhite
Transparent = False
WordWrap = True
FontSize = 10
end
object idVerze: TQRLabel
Left = 320
Top = 16
Width = 8
Height = 17
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
44.979166666666700000
846.666666666667000000
42.333333333333300000
21.166666666666700000)
Alignment = taLeftJustify
AlignToBand = False
AutoSize = True
AutoStretch = False
Caption = '2'
Color = clWhite
Transparent = False
WordWrap = True
FontSize = 10
end
object Agenda: TQRLabel
Left = 344
Top = 16
Width = 15
Height = 17
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
44.979166666666700000
910.166666666667000000
42.333333333333300000
39.687500000000000000)
Alignment = taLeftJustify
AlignToBand = False
AutoSize = True
AutoStretch = False
Caption = '34'
Color = clWhite
Transparent = False
WordWrap = True
FontSize = 10
end
end
object ADODataSet1: TADODataSet
CursorType = ctStatic
Parameters = <>
Left = 8
Top = 8
end
end